home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 23
/
Amiga Format AFCD23 (Feb 1998, Issue 107).iso
/
+look_here_1st!+
/
handy_tools
/
diskmasterii
/
rexx
/
fastdmview.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1997-07-31
|
775b
|
47 lines
/* ARexx - Script für DiskMaster und Fastview */
/*
** $VER: FastDMView.rexx 2.2 (97-04-19) Rudolph Riedel
** RRiedel@Amiga.ON-Luebeck.de
*/
OPTIONS RESULTS
parse arg Port
Fastview="Tools:Fastview"
select=" S"
namelist=" "
count=0
viewlist.count=" "
Address VALUE Port
Status P
path=Result
DirList List
do i=1 to List.0
parse var List.i name cmt+80 sel
if sel=select then
namelist=namelist name
if length(namelist) > 500 then
do
viewlist.count=namelist
namelist=" "
count=count+1
viewlist.count=" "
end
end
viewlist.count=namelist
Pragma pragma('d', path)
do i=0 to count
viewlist.i=delstr(viewlist.i,1,2)
Address Command Fastview viewlist.i
end
Deselect "*"